home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '92 / Other stuff / Vendor Demos / Evaluator 1.1 / EvCode < prev    next >
Encoding:
Text File  |  1991-02-19  |  469 b   |  27 lines  |  [TEXT/????]
  1. Sx = 0
  2. Sy = 0
  3. Sxy = 0
  4. Sx2 = 0
  5. Sy2 = 0
  6. n = 5
  7. I = 1
  8. DO WHILE(I<6)
  9.  Sx = CR(1,I) + Sx
  10.  Sy = CR(2,I) + Sy
  11.  Sxy = CR(1,I) * CR(2,I) + Sxy
  12.  Sx2 = CR(1,I)^2 + Sx2
  13.  Sy2 = CR(2,I)^2 + Sy2
  14.  I = I + 1
  15. REPEAT
  16. TEMP = n*Sxy - Sx*Sy
  17. B = TEMP / (n*Sx2 - Sx^2)
  18. A = (Sy - B*Sx)/n
  19. r = TEMP / SQRT((n*Sx2 - Sx^2)*(n*Sy2 - Sy^2))
  20. AREA1 = %DFIT(1,2,5)
  21. AREA2 = %LFIT(A,B,CR(1,1),CR(1,5))
  22. IF (AREA2 > AREA1)
  23.  PError = 100.0*(AREA2 - AREA1)/AREA1
  24. ELSE
  25.  PError = 100.0*(AREA1 - AREA2)/AREA2
  26. END
  27.